-- card: 2963 from stack: in
-- bmap block id: 3660
-- flags: 0000
-- background id: 2627
-- name: 
----- HyperTalk script -----
on openCard
  global soundOption
  if soundOption is empty then
    set the name of bkgnd button 2 to "Sound"
  end if

  ------------------------------------------------------------
  --  Script modified by Animatrix to find the animation files

  put word 2 of long name of this stack into lgname
  repeat until last char of lgname is ":"
    delete last char of lgname
  end repeat
  delete first char of lgname
  ------------------------------------------------------------

  repeat until the mouseClick

    Studio1 Open,"refNum",lgname&"ST/1D.1"
    if the mouseClick then
      exit repeat
    end if
    Studio1 Forth,refNum,"LastFrame",soundOption
    Studio1 Close,refNum
    if the mouseClick then
      exit repeat
    end if

    Studio1 Open,"refNum",lgname&"ST/1D.2"
    if the mouseClick then
      exit repeat
    end if
    Studio1 Forth,refNum,"LastFrame",soundOption
    Studio1 Close,refNum
    if the mouseClick then
      exit repeat
    end if

    Studio1 Open,"refNum",lgname&"ST/1D.3"
    if the mouseClick then
      exit repeat
    end if
    Studio1 Forth,refNum,"LastFrame",soundOption
    Studio1 Close,refNum
    if the mouseClick then
      exit repeat
    end if

    Studio1 Open,"refNum",lgname&"ST/1D.4"
    if the mouseClick then
      exit repeat
    end if
    Studio1 Forth,refNum,"LastFrame",soundOption
    Studio1 Close,refNum
    if the mouseClick then
      exit repeat
    end if

    Studio1 Open,"refNum",lgname&"ST/1D.5"
    if the mouseClick then
      exit repeat
    end if
    Studio1 Forth,refNum,"LastFrame",soundOption
    Studio1 Close,refNum
    if the mouseClick then
      exit repeat
    end if

    go to card "End Card"
    put 0 into clicktest
    put seconds() into startSeconds

    repeat while (seconds() - startSeconds) < 15
      get Inkey()
      if it is "s" then
        if soundOption is "NoSound" then
          put empty into soundOption
          set the name of bkgnd button 2 to "Sound"
        else
          put "NoSound" into soundOption
          set the name of bkgnd button 2 to "No Sound"
        end if
      end if
      if the mouseClick then
        put 1 into clicktest
        exit repeat
      end if
    end repeat

    if clicktest is 1 then
      exit repeat
    end if

  end repeat
  go to stack InfoStack

end openCard





-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=425 top=0 right=12 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dummy